COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 For screen and file:
C00004 00003	 Hardcopy:
C00007 00004	 Screen
C00008 ENDMK
C⊗;
;;; For screen and file:
(let ((fasload ()))
     (fasload graph3))
(fasload data)


(defun make-graphs ()
       (do ((files '(↓sail.god[1,rpg]
↓pslcry.god[1,rpg] ↓perq.god[1,rpg] ↓s3600.god[1,rpg] ↓lambd.god[1,rpg]
↓dandel.god[1,rpg] ↓dorado.god[1,rpg] ↓d780c.god[1,rpg] ↓d750c.god[1,rpg]
↓d730c.god[1,rpg] ↓fr68k.god[1,rpg] ↓fr780.god[1,rpg]) 
		   (cdr files))
	    (impls '(sail psl-cray perq s3600 lmi d1 d3 dec780cl dec750cl
			  dec730cl franz68k franz780)
		   (cdr impls)))
	   ((null files) 'all-done)
	   (print (list 'graphing (car impls)))
	   (terpri)
	   (eval (list 'filjob-g (car files)))
	   (graph-impl-g (car impls) t)
	   (kiljob-g)
	   (print 'done)))

(make-graphs)

(filjob-g ↓fr68k.god[1,rpg])
(graph-impl-g 'franz68kyn t)
(kiljob-g)
(filjob-g ↓fr780.god[1,rpg]) 
(graph-impl-g 'franz780yn t)
(kiljob-g)
;;; Hardcopy:
;;; Start acronym for GOD files

;;; For hardcopy:
(setq *logp* t)

(graph-impls-real-g (mapcar (function car) *all-implementations-flattened*))
(graph-impls-cpu-g (mapcar (function car) *all-implementations-flattened*))

r xgpjob<cr>
rchart.god

r xgpjob<cr>
cchart.god

rchart order:
*impl-order*
(PSL-CRAY S-1 PSL20 S3600 S3600FPA D3 SAIL DEC785CL PSL780 FRANZ780YY 
DEC780CL FRANZ780NY PSL-HP200 PSL-DN160 PSL-HP-UX FRANZ750NY FRANZ780YN 
INTERLISP-10 DEC750CL FRANZ750YY PSL-DN600 PSL750 PSL-DN300 LM2 FRANZ68KYY 
D1 FRANZ750YN FRANZ68KNY INTERLISPVAX780 PERQ NIL750 FRANZ68KYN FRANZ780NN 
DEC730CL FRANZ750NN D2 FRANZ68KNN) 

cchart order:
*impl-order*
(PSL-CRAY S-1 PSL20 SAIL D3 S3600 S3600FPA DEC785CL PSL780 FRANZ780YY 
FRANZ780NY DEC780CL PSL-HP200 PSL-DN160 PSL-HP-UX FRANZ780YN FRANZ750NY 
FRANZ750YY INTERLISP-10 DEC750CL PSL-DN600 PSL750 PSL-DN300 LM2 FRANZ68KYY 
FRANZ750YN D1 FRANZ68KNY INTERLISPVAX780 FRANZ68KYN PERQ NIL750 FRANZ780NN 
FRANZ750NN DEC730CL D2 FRANZ68KNN) 
(#FILE-OUT-|DSK:RCHART.GOD[1,RPG]|-71732 . 0) 
;;; Screen
;;; Start PE

(setq *logp* t)

(graph-impls-real (mapcar #'car *all-implementations-flattened*))
(graph-impls-cpu (mapcar #'car *all-implementations-flattened*))